home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS14.ADF / Progs / PETrans / Petrans.c < prev    next >
C/C++ Source or Header  |  1989-01-28  |  820b  |  29 lines
  1. /********************************************
  2. *   P E T R A N S - by James David Walley   *
  3. *       Usage--                             *
  4. *        petrans < oldfile > newfile        *
  5. ********************************************/
  6.  
  7. #include <stdio.h>
  8.  
  9. main()
  10. {
  11.    int c;
  12.  
  13.    while ((c = getchar()) != EOF) {
  14.       if (c == 13)                 /* replacing CR with LF */
  15.         c = 10;
  16.           if (c >= 193 && c <= 218) /* "cleaning up" 2nd-order uppercase */
  17.             c -= 96;
  18.              if (c >= 65 && c <=90) /* converting PETACSII uppercase */
  19.                 c += 32;            /* to ASCII lowercase */
  20.              else
  21.                if (c >= 97 && c <= 122) /* converting PETASCII lowercase */
  22.                  c -= 32;               /* to ASCII uppercase */
  23.       putchar(c);
  24.    }
  25.    fclose(stdout);
  26. }
  27.  
  28.  
  29.